home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / VIEWS03 / SCRIPTS / SEAST.AVE < prev    next >
Text File  |  1999-03-10  |  1KB  |  38 lines
  1. ' seast.ave
  2. ' Displays Southeast Asia Geology Map
  3. ' Douglas Steinshouer  11/16/1998
  4. ' GeoLukas for USGS GEO CERT World Energy Project
  5. ' Thomas Ahlbrandt  Project Chief
  6.  
  7. region3 = av.GetProject
  8. theView = region3.FindDoc("Plate 2:  Southeast Asia Geology, Oil/Gas Fields and Geologic Provinces")
  9. mapzoom = Rect.MakeXY(-5307000,-2775000, 2622000,3935000)
  10. theView.GetDisplay.ZoomToRect(mapzoom)
  11. reg3DocWin = theView.GetWin
  12. reg3DocWin.Open
  13. reg3DocWin.Maximize
  14.  
  15.  
  16. t2 = theView.GetThemes.Get(0)
  17. t2.SetActive(true)
  18. t2.GetGraphics.SelectLabels
  19. t2.GetGraphics.Invalidate
  20. theView.GetGraphics.ClearSelected
  21.  
  22. citylabel = Labeler.Make(mapzoom)
  23. citylabel.SetFeatureWeight(#LABEL_WEIGHT_NO)
  24. citylabel.SetLabelWeight(#LABEL_WEIGHT_HIGH)    
  25. citysymbol = TextSymbol.Make
  26. citysymbol.SetFont(Font.Make("Univers","Italic"))
  27. citysymbol.SetSize(10)
  28. t2.SetLabelTextSym(citysymbol)
  29. citylabel.Load(t2)
  30. theView.GetAutoLabels(citylabel,true)
  31.  
  32. ts = theView.GetThemes
  33.   for each t in ts
  34.     t.SetActive(false)
  35.   end
  36.  
  37.  
  38.